#### Figure S10: Bivariate Support for Polling ####

# Libraries
# library(here)
# library(rio)
# library(tidyverse)
# library(ggthemes)
# library(lubridate)
# library(estimatr)

# data_pnas = import(here("Data","data_pnas.rds"))
# source(here("Code","Functions","funcs_theme.R"))
# source(here("Code","Functions","funcs_bvplot.R"))

fig_s11 = plot_bv_maga(data_pnas, norm_pollingc)

print(fig_s11)

ggsave(here("Plots","Supplementary","figure_s11.png"),
       fig_s11,
       units = "in",
       width = 6, height = 6,
       dpi = 600)